﻿Imports EVOLTA.Promocion.Bl.Bc
Imports EVOLTA.Promocion.Bl.Be

Partial Class cargarStock_cargarStock
    Inherits System.Web.UI.Page

    Private edificios As List(Of EedificioManz) = Nothing
    Private modelosUnid As List(Of EmodeloInmueble) = Nothing
    Private unidadesInmb As List(Of EunidInmobiliarias) = Nothing

    Dim expression As String = Nothing
    Dim direction As SortDirection = SortDirection.Ascending

#Region "           Formulario                              "
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Response.CacheControl = "no-cache"
        Response.AddHeader("Pragma", "no-cache")
        Response.Expires = -1
        '***********************************************************'
        'btnAgregarEdificio.Attributes.Add("onclick", "MuestraPanelEdificioManz(); return false;")
        'btnAgregarModelo.Attributes.Add("onclick", "MuestraPanelModeloUnidades(); return false;")
        'btnAgregarUnidades.Attributes.Add("onclick", "MuestraPanelUnidadesInmob(); return false;")

        If Not IsPostBack Then
            cargarEdifManz()
            cargarEstadoEdificio()
            cargarEstadoEdificiomanzana()
            cargarEstadoModelo()
            cargarModelos()
            cargarTipoInmueble()
            cargarTipoConstruccion()
            cargarTipoMoneda()
            cargarTipoInmueble()
        End If
    End Sub
#End Region

#Region "           Edificio                                "
    Private Sub cargarEdifManz()
        edificios = RedificioManz.SeleccionarTodo(Me.Master.descEmpresa, False, Me.Master.idProyecto, Me.Master.idEtapa)
        Session("edificio") = edificios
        If Not edificios Is Nothing Then
            gvwEdificio.DataSource = edificios
            gvwEdificio.DataBind()
        End If
    End Sub
    Private Sub cargarTipoConstruccion()
        selTpoConstruccion.DataSource = RtpoConstruccion.SeleccionarTodo(Me.Master.descEmpresa, True)
        selTpoConstruccion.DataTextField = "descTpoConstruccion"
        selTpoConstruccion.DataValueField = "idTpoConstruccion"
        selTpoConstruccion.DataBind()
    End Sub
    Private Sub cargarEstadoEdificio()
        Dim Eestado As New Ecommons
        selEstadoEdifMaz.DataSource = Eestado.estado
        selEstadoEdifMaz.DataTextField = "descripcion"
        selEstadoEdifMaz.DataValueField = "codigo"
        selEstadoEdifMaz.DataBind()
    End Sub
    Private Sub cargarEstadoEdificiomanzana()
        selEstadoEdificio.DataSource = RestadoEdiMzn.SeleccionarTodoXEstado(Me.Master.descEmpresa, True)
        selEstadoEdificio.DataTextField = "descestadoEdiMzn"
        selEstadoEdificio.DataValueField = "idestadoEdiMzn"
        selEstadoEdificio.DataBind()
    End Sub
    Protected Sub lnkBtn_CommandEdificios(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.CommandEventArgs) _
    Handles lnkBtnCodigoEdificio.Command, lnkBtnNombreEdificio.Command, lnkBtnEstadoEdificio.Command
        edificios = Session("edificio")
        If Not edificios Is Nothing Then
            Select Case e.CommandName
                Case "idEdiMzn"
                    Dim List = From d In edificios _
                               Order By d.idEdiMzn _
                               Select d
                    gvwEdificio.DataSource = List
                    gvwEdificio.DataBind()
                Case "NombreBloqueInmueble" : expression = e.CommandArgument
                    Dim List = From d In edificios _
                               Order By d.NombreBloqueInmueble _
                               Select d
                    gvwEdificio.DataSource = List
                    gvwEdificio.DataBind()
                Case "descEstadoEdificio" : expression = e.CommandArgument
                    Dim List = From d In edificios _
                               Order By d.estado _
                               Select d
                    gvwEdificio.DataSource = List
                    gvwEdificio.DataBind()
            End Select
        End If
    End Sub
    Protected Sub btnAgregarEdificio_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAgregarEdificio.Click
        mpDetalleEdificio.Show()
    End Sub
    Protected Sub gvwEdificio_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) _
    Handles gvwEdificio.RowCommand
        Select Case e.CommandName
            Case "Edit"
                'Dim id As String = e.CommandArgument 
            Case "Delete"
                Dim pEdificioManz As EedificioManz = New EedificioManz
                With pEdificioManz
                    .idProyecto = Me.Master.idProyecto
                    .idEtapa = Me.Master.idEtapa
                    .idEdiMzn = e.CommandArgument
                    .idUsuario = Me.Master.idUsuario
                End With
                RedificioManz.Eliminar(Me.Master.descEmpresa, pEdificioManz)
                cargarEdifManz()
            Case "Ver"
                edificios = Session("edificio")
                Dim nomEdif = From ed In edificios _
                              Where ed.idEdiMzn = e.CommandArgument _
                              Select ed.nomEdiMzn
                lblTituloPrincUnidades.Text = " Unidades Inmobiliarias - " + nomEdif.ElementAt(0).ToString
                Dim pUnidInmobiliaria As EunidInmobiliarias = New EunidInmobiliarias
                With pUnidInmobiliaria
                    .idProyecto = Me.Master.idProyecto
                    .idEtapa = Me.Master.idEtapa
                    .idEdiMzn = e.CommandArgument
                    txtIdEdificoUnidadesInmob.Text = e.CommandArgument
                    upIdEdificoUnidadesInmob.Update()
                End With
                cargarUnidades(pUnidInmobiliaria)
                cargarEstadoUnidades()
                selModelo.DataSource = RmodeloInmueble.SeleccionarTodo(Me.Master.descEmpresa, True, Me.Master.idProyecto, Me.Master.idEtapa)
                selModelo.DataTextField = "nomModelo"
                selModelo.DataValueField = "idModelo"
                selModelo.DataBind()
                upSelModelo.Update()
                'Case Else
        End Select
    End Sub
    Protected Sub gvwEdificio_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) _
    Handles gvwEdificio.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.Attributes.Add("OnMouseOver", "Resaltar_On(this);")
            e.Row.Attributes.Add("OnMouseOut", "Resaltar_Off(this);")
            e.Row.Attributes("OnClick") = Page.ClientScript.GetPostBackClientHyperlink(Me.gvwEdificio, "Select$" + e.Row.RowIndex.ToString)
            e.Row.Style.Add("cursor", "hand")
        End If
    End Sub
    Protected Sub gvwEdificio_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) _
    Handles gvwEdificio.RowDeleting

    End Sub
    Protected Sub gvwEdificio_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles gvwEdificio.RowEditing
        Dim id As Int32 = CType(CType(gvwEdificio.Rows(e.NewEditIndex).FindControl("lnkCodEdificio"), LinkButton).Text, Int32)
        edificios = Session("edificio")
        If Not edificios Is Nothing Then
            Dim Ledificios = From v In edificios _
                                        Where v.idEdiMzn = id _
                                        Select v
            lblTituloEdificioManz.Text = "Edificio Manzana [Modificar]"
            lblTituloEdificioManz.ToolTip = "Modificar"
            txtIdEdificio.Text = Ledificios.ElementAt(0).idEdiMzn
            txtNombreEdifMaz.Value = Ledificios.ElementAt(0).nomEdiMzn
            selTpoConstruccion.Value = Ledificios.ElementAt(0).EtpoConstruccion.idTpoConstruccion
            txtAreaTerrEdifManz.Value = Ledificios.ElementAt(0).areaTerreno
            txtNroUnidades.Value = Ledificios.ElementAt(0).nroUnidInmob
            txtNroPisosEdificioManz.Value = Ledificios.ElementAt(0).nroPisos
            txtFechInicio.Text = Ledificios.ElementAt(0).fechInicio
            txtFechEntrega.Text = Ledificios.ElementAt(0).fechEntrega
            If Ledificios.ElementAt(0).ascensorDirecto = 1 Then
                rdbAscdirecSI.Checked = 1
                rdbAscdirecNO.Checked = 0
            Else
                rdbAscdirecNO.Checked = 1
                rdbAscdirecSI.Checked = 0
            End If
            selEstadoEdifMaz.Value = Ledificios.ElementAt(0).estado
            txtObservEdificioManz.Value = Ledificios.ElementAt(0).observaciones
            mpDetalleEdificio.Show()
        End If
    End Sub
    Protected Sub btnGuardarEdifManz_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles btnGuardarEdifManz.Click
        If txtNombreEdifMaz.Value.Trim.Length > 0 Then
            Dim jsMensaje As String = Nothing
            Dim pEdificioManz As EedificioManz = Nothing
            Dim resultado As Boolean = False
            If lblTituloEdificioManz.ToolTip = "Registrar" Then
                Dim ascd As Short = 0
                If rdbAscdirecSI.Checked = True Then
                    ascd = 1
                Else
                    ascd = 0
                End If
                pEdificioManz = New EedificioManz
                With pEdificioManz
                    .idProyecto = Me.Master.idProyecto
                    .idEtapa = Me.Master.idEtapa
                    .nomEdiMzn = txtNombreEdifMaz.Value.Trim.ToUpper
                    .EtpoConstruccion = New EtpoConstruccion
                    .EtpoConstruccion.idTpoConstruccion = selTpoConstruccion.Value
                    .areaTerreno = txtAreaTerrEdifManz.Value.Trim.ToUpper
                    .nroUnidInmob = txtNroUnidades.Value.Trim.ToUpper
                    .nroPisos = txtNroPisosEdificioManz.Value.Trim.ToUpper
                    .fechInicio = txtFechInicio.Text.Trim.ToUpper
                    .fechEntrega = txtFechEntrega.Text.Trim.ToUpper
                    .observaciones = txtObservEdificioManz.Value.Trim.ToUpper
                    .ascensorDirecto = ascd
                    .idEstadoEdiMzn = selEstadoEdificio.Value
                    .idUsuario = Me.Master.idUsuario
                End With
                resultado = RedificioManz.Añadir(Me.Master.descEmpresa, pEdificioManz)
                If resultado Then
                    cargarEdifManz()
                    jsMensaje = "<script>javascript:alert(' Se registro correctamente.');</script>)"
                    Controls.Add(New LiteralControl(jsMensaje))
                Else
                    jsMensaje = "<script>javascript:alert('No se pudo registrar.');</script>)"
                    Controls.Add(New LiteralControl(jsMensaje))
                End If
            ElseIf lblTituloEdificioManz.ToolTip = "Modificar" Then
                Dim ascd As Short = 0
                If rdbAscdirecSI.Checked = True Then
                    ascd = 1
                Else
                    ascd = 0
                End If
                pEdificioManz = New EedificioManz
                With pEdificioManz
                    .idProyecto = Me.Master.idProyecto
                    .idEtapa = Me.Master.idEtapa
                    .idEdiMzn = CType(txtIdEdificio.Text, Int32)
                    .nomEdiMzn = txtNombreEdifMaz.Value.Trim.ToUpper
                    .EtpoConstruccion = New EtpoConstruccion
                    .EtpoConstruccion.idTpoConstruccion = selTpoConstruccion.Value
                    .areaTerreno = txtAreaTerrEdifManz.Value.Trim.ToUpper
                    .nroUnidInmob = txtNroUnidades.Value.Trim.ToUpper
                    .nroPisos = txtNroPisosEdificioManz.Value.Trim.ToUpper
                    .fechInicio = txtFechInicio.Text.Trim.ToUpper
                    .fechEntrega = txtFechEntrega.Text.Trim.ToUpper
                    .observaciones = txtObservEdificioManz.Value.Trim.ToUpper
                    .ascensorDirecto = ascd
                    .idEstadoEdiMzn = selEstadoEdificio.Value
                    .estado = selEstadoEdifMaz.Value
                    .idUsuario = Me.Master.idUsuario
                End With
                resultado = RedificioManz.Editar(Me.Master.descEmpresa, pEdificioManz)
                If resultado Then
                    cargarEdifManz()
                    jsMensaje = "<script>javascript:alert(' Se modifico correctamente.');</script>)"
                    Controls.Add(New LiteralControl(jsMensaje))
                Else
                    jsMensaje = "<script>javascript:alert('No se pudo modificar.');</script>)"
                    Controls.Add(New LiteralControl(jsMensaje))
                End If
            End If
        End If
    End Sub
    Protected Sub btnCancelarEdifManz_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancelarEdifManz.Click
        lblTituloEdificioManz.ToolTip = "Registrar"
        mpDetalleEdificio.CancelControlID = "btnCancelarEdifManz"
    End Sub
    Protected Sub btnExcelEdificio_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExcelEdificio.Click
        edificios = Session("edificio")
        If Not edificios Is Nothing Then
            Dim fileName As String = "Consulta{0}.xls"
            fileName = String.Format(fileName, DateTime.Now.ToShortDateString())
            Dim Response As HttpResponse = HttpContext.Current.Response
            Response.ContentType = "application/vnd.ms-excel"
            Response.Charset = "UTF-8"
            Response.ContentEncoding = System.Text.Encoding.Default
            Response.AddHeader("Content-Disposition", "attachment; filename=" + fileName)

            Response.Write("Proyecto")
            Response.Write(vbTab)
            Response.Write("Etapa")
            Response.Write(vbTab)
            Response.Write("id")
            Response.Write(vbTab)
            Response.Write("Nombre Edificio")
            Response.Write(vbTab)
            Response.Write("Código Tipo Construccion")
            Response.Write(vbTab)
            Response.Write("Tipo Construccion")
            Response.Write(vbTab)
            Response.Write("Código Estado Edificio")
            Response.Write(vbTab)
            Response.Write("Estado Edificio")
            Response.Write(vbTab)
            Response.Write("Area terreno")
            Response.Write(vbTab)
            Response.Write("Nro Unids Inmobiliarias")
            Response.Write(vbTab)
            Response.Write("Nro Pisos")
            Response.Write(vbTab)
            Response.Write("Fecha de Inicio")
            Response.Write(vbTab)
            Response.Write("Fecha de Entrega")
            Response.Write(vbTab)
            Response.Write("Observaciones")
            Response.Write(vbTab)
            Response.Write("Ascensor Directo")
            Response.Write(vbTab)
            Response.Write("id Estado")
            Response.Write(vbTab)
            Response.Write("Estado")
            Response.Write(vbTab)
            Response.Write(vbCrLf)

            Dim value As String
            For Each edificio In edificios
                value = edificio.idProyecto
                Response.Write(value)
                Response.Write(vbTab)

                value = edificio.idEtapa
                Response.Write(value)
                Response.Write(vbTab)

                value = edificio.idEdiMzn
                Response.Write(value)
                Response.Write(vbTab)

                value = edificio.nomEdiMzn
                Response.Write(value)
                Response.Write(vbTab)

                value = edificio.EtpoConstruccion.idTpoConstruccion
                Response.Write(value)
                Response.Write(vbTab)

                value = edificio.EtpoConstruccion.descTpoConstruccion
                Response.Write(value)
                Response.Write(vbTab)

                value = edificio.EestadoEdiMzn.idEstadoEdiMzn
                Response.Write(value)
                Response.Write(vbTab)

                value = edificio.EestadoEdiMzn.descEstadoEdiMzn
                Response.Write(value)
                Response.Write(vbTab)

                value = edificio.areaTerreno
                Response.Write(value)
                Response.Write(vbTab)

                value = edificio.nroUnidInmob
                Response.Write(value)
                Response.Write(vbTab)

                value = edificio.nroPisos
                Response.Write(value)
                Response.Write(vbTab)

                value = edificio.fechInicio
                Response.Write(value)
                Response.Write(vbTab)

                value = edificio.fechEntrega
                Response.Write(value)
                Response.Write(vbTab)

                value = edificio.observaciones
                Response.Write(value)
                Response.Write(vbTab)

                value = edificio.ascensorDirecto
                Response.Write(value)
                Response.Write(vbTab)

                value = edificio.estado
                Response.Write(value)
                Response.Write(vbTab)

                value = edificio.descEstado
                Response.Write(value)
                Response.Write(vbCrLf)
            Next
            Response.End()
        Else
            Dim jsMensaje As String = Nothing
            jsMensaje = "<script>javascript:alert(' La consulta no pudo ser procesada.  Por favor inténtelo de nuevo.');</script>)"
            Controls.Add(New LiteralControl(jsMensaje))
        End If
    End Sub
#End Region

#Region "           Modelo Unidades Inmobiliarias           "
    Private Sub cargarModelos()
        modelosUnid = RmodeloInmueble.SeleccionarTodo(Me.Master.descEmpresa, False, Me.Master.idProyecto, Me.Master.idEtapa)
        Session("modelo") = modelosUnid
        gvwModelo.DataSource = modelosUnid
        gvwModelo.DataBind()
    End Sub
    Private Sub cargarTipoInmueble()
        selTpoInmueble.DataSource = RtpoInmueble.SeleccionarTodo(Me.Master.descEmpresa, True)
        selTpoInmueble.DataTextField = "descTpoInmueble"
        selTpoInmueble.DataValueField = "idTpoInmueble"
        selTpoInmueble.DataBind()
    End Sub
    Private Sub cargarEstadoModelo()
        Dim EestadoModelo As New Ecommons
        selEstadoModelo.DataSource = EestadoModelo.estado
        selEstadoModelo.DataTextField = "descripcion"
        selEstadoModelo.DataValueField = "codigo"
        selEstadoModelo.DataBind()
    End Sub
    Protected Sub lnkBtn_CommandModelo(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.CommandEventArgs) _
    Handles lnkBtnCodigoModelo.Command, lnkBtnDescripcionModelo.Command
        modelosUnid = Session("lista")
        If Not modelosUnid Is Nothing Then
            Select Case e.CommandName
                Case "lnkBtnSeguimiento"
                    Dim List = From d In modelosUnid _
                               Order By d.idModelo _
                               Select d
                    gvwModelo.DataSource = List
                    gvwModelo.DataBind()
                Case "lnkBtnEstadoSeguimiento" : expression = e.CommandArgument
                    Dim List = From d In modelosUnid _
                               Order By d.NombreTpoInmueble _
                               Select d
                    gvwModelo.DataSource = List
                    gvwModelo.DataBind()
            End Select
        End If
    End Sub
    Protected Sub btnAgregarModelo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAgregarModelo.Click
        mpDetalleModelo.Show()
    End Sub
    Protected Sub gvwModelo_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) _
    Handles gvwModelo.RowCommand
        Select Case e.CommandName
            Case "Edit"
            Case "Delete"
                Dim pModeloInmueble As EmodeloInmueble = New EmodeloInmueble
                With pModeloInmueble
                    .idProyecto = Me.Master.idProyecto
                    .idEtapa = Me.Master.idEtapa
                    .idModelo = e.CommandArgument
                    .idUsuario = Me.Master.idUsuario
                End With
                RmodeloInmueble.Eliminar(Me.Master.descEmpresa, pModeloInmueble)
                cargarModelos()
        End Select
    End Sub
    Protected Sub gvwModelo_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) _
    Handles gvwModelo.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.Attributes.Add("OnMouseOver", "Resaltar_On(this);")
            e.Row.Attributes.Add("OnMouseOut", "Resaltar_Off(this);")
            e.Row.Attributes("OnClick") = Page.ClientScript.GetPostBackClientHyperlink(Me.gvwModelo, "Select$" + e.Row.RowIndex.ToString)
            e.Row.Style.Add("cursor", "hand")
        End If
    End Sub
    Protected Sub gvwModelo_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) _
    Handles gvwModelo.RowDeleting
        'Dim lnk As LinkButton = CType(gvwModelo.Rows(e.RowIndex).FindControl("lnkCodModelo"), LinkButton)
        'RSeguimientoFin.Eliminar(lnk.AccessKey, lnk.CommandArgument)
        'cargarModelos(lnk.CommandArgument)
    End Sub
    Protected Sub gvwModelo_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles gvwModelo.RowEditing
        Dim lnk As LinkButton = CType(gvwModelo.Rows(e.NewEditIndex).FindControl("lnkCodModelo"), LinkButton)
        Dim id As Int32 = lnk.CommandArgument
        modelosUnid = Session("modelo")
        If Not modelosUnid Is Nothing Then
            Dim Lmodelo = From v In modelosUnid _
                                        Where v.idModelo.ToString = id _
                                        Select v
            lblTituloModeloUnidInmob.Text = "Modelo [Modificar]"
            lblTituloModeloUnidInmob.ToolTip = "Modificar"

            txtIdModelo.Text = Lmodelo.ElementAt(0).idModelo
            txtNomInmueble.Value = Lmodelo.ElementAt(0).nomModelo
            selTpoInmueble.Value = Lmodelo.ElementAt(0).EtpoInmueble.idTpoInmueble
            txtAreaTerrModelo.Value = Lmodelo.ElementAt(0).areaTerrModelo
            txtAreaTechada.Value = Lmodelo.ElementAt(0).areaTechada
            txtAreaConstruida.Value = Lmodelo.ElementAt(0).areaConstruida
            txtAreaVendible.Value = Lmodelo.ElementAt(0).areaVendible
            txtAreaJardin.Value = Lmodelo.ElementAt(0).areaPatio
            txtNroHabitaciones.Value = Lmodelo.ElementAt(0).nroHabitaciones
            txtNroBaños.Value = Lmodelo.ElementAt(0).nroBaños
            If Lmodelo.ElementAt(0).ascensorDirecto = 1 Then
                rdbAscdirecSI.Checked = 1
                rdbAscdirecNO.Checked = 0
            Else
                rdbAscdirecNO.Checked = 1
                rdbAscdirecSI.Checked = 0
            End If
            If Lmodelo.ElementAt(0).patioJardin = 1 Then
                rdbJardinSI.Checked = 1
                rdbJardinNO.Checked = 0
            Else
                rdbJardinNO.Checked = 1
                rdbJardinSI.Checked = 0
            End If
            'Imagen= Lmodelo.ElementAt(0).imagen
            txtObservacionesModelo.Value = Lmodelo.ElementAt(0).observacion
            selEstadoModelo.Value = Lmodelo.ElementAt(0).estado
            mpDetalleModelo.Show()
        End If
    End Sub
    Protected Sub btnGuardarModelo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGuardarModelo.Click
        If txtNomInmueble.Value.Trim.Length > 0 AndAlso selTpoInmueble.Value.Trim.Length Then
            Dim jsMensaje As String = Nothing
            Dim pModeloInmueble As EmodeloInmueble = Nothing
            Dim resultado As Boolean = False
            If lblTituloModeloUnidInmob.ToolTip = "Registrar" Then
                Dim ascd As Short = 0
                Dim patjar As Short = 0
                If rdbAscdirecSI.Checked = True Then
                    ascd = 1
                Else
                    ascd = 0
                End If
                If rdbJardinSI.Checked = True Then
                    patjar = 1
                Else
                    patjar = 0
                End If
                pModeloInmueble = New EmodeloInmueble
                With pModeloInmueble
                    .idProyecto = Me.Master.idProyecto
                    .idEtapa = Me.Master.idEtapa
                    .nomModelo = txtNomInmueble.Value
                    .EtpoInmueble = New EtpoInmueble
                    .EtpoInmueble.idTpoInmueble = selTpoInmueble.Value
                    If txtAreaTerrModelo.Value.Length = 0 Then
                        .areaTerrModelo = 0.0
                    Else
                        .areaTerrModelo = CType(txtAreaTerrModelo.Value, Decimal)
                    End If
                    If txtAreaTechada.Value.Length = 0 Then
                        .areaTechada = 0.0
                    Else
                        .areaTechada = CType(txtAreaTechada.Value, Decimal)
                    End If
                    If txtAreaConstruida.Value.Length = 0 Then
                        .areaConstruida = 0.0
                    Else
                        .areaConstruida = CType(txtAreaConstruida.Value, Decimal)
                    End If
                    If txtAreaVendible.Value.Length = 0 Then
                        .areaVendible = 0.0
                    Else
                        .areaVendible = CType(txtAreaVendible.Value, Decimal)
                    End If
                    .ascensorDirecto = ascd
                    .nroHabitaciones = txtNroHabitaciones.Value
                    .nroBaños = txtNroBaños.Value
                    .patioJardin = patjar
                    If txtAreaJardin.Value.Length = 0 Then
                        .areaPatio = 0.0
                    Else
                        .areaPatio = CType(txtAreaJardin.Value, Decimal)
                    End If
                    .imagen = Imagen.ToString
                    .observacion = txtObservacionesModelo.Value.ToUpper
                    .idUsuario = Me.Master.idUsuario
                End With
                resultado = RmodeloInmueble.Añadir(Me.Master.descEmpresa, pModeloInmueble)
                If resultado Then
                    cargarModelos()
                    jsMensaje = "<script>javascript:alert(' Se registro correctamente.');</script>)"
                    Controls.Add(New LiteralControl(jsMensaje))
                Else
                    jsMensaje = "<script>javascript:alert('No se pudo registrar.');</script>)"
                    Controls.Add(New LiteralControl(jsMensaje))
                End If
            ElseIf lblTituloModeloUnidInmob.ToolTip = "Modificar" Then
                Dim ascd As Short = 0
                Dim patjar As Short = 0
                If rdbAscdirecSI.Checked = True Then
                    ascd = 1
                Else
                    ascd = 0
                End If
                If rdbJardinSI.Checked = True Then
                    patjar = 1
                Else
                    patjar = 0
                End If
                pModeloInmueble = New EmodeloInmueble
                With pModeloInmueble
                    .idProyecto = Me.Master.idProyecto
                    .idEtapa = Me.Master.idEtapa
                    .idModelo = CType(txtIdModelo.Text, Int32)
                    .nomModelo = txtNomInmueble.Value.ToUpper
                    .EtpoInmueble = New EtpoInmueble
                    .EtpoInmueble.idTpoInmueble = selTpoInmueble.Value
                    If txtAreaTerrModelo.Value.Length = 0 Then
                        .areaTerrModelo = 0.0
                    Else
                        .areaTerrModelo = CType(txtAreaTerrModelo.Value, Decimal)
                    End If
                    If txtAreaTechada.Value.Length = 0 Then
                        .areaTechada = 0.0
                    Else
                        .areaTechada = CType(txtAreaTechada.Value, Decimal)
                    End If
                    If txtAreaConstruida.Value.Length = 0 Then
                        .areaConstruida = 0.0
                    Else
                        .areaConstruida = CType(txtAreaConstruida.Value, Decimal)
                    End If
                    If txtAreaVendible.Value.Length = 0 Then
                        .areaVendible = 0.0
                    Else
                        .areaVendible = CType(txtAreaVendible.Value, Decimal)
                    End If
                    .ascensorDirecto = ascd
                    .nroHabitaciones = txtNroHabitaciones.Value
                    .patioJardin = patjar
                    If txtAreaJardin.Value.Length = 0 Then
                        .areaPatio = 0.0
                    Else
                        .areaPatio = CType(txtAreaJardin.Value, Decimal)
                    End If
                    .imagen = Imagen.ToString
                    .observacion = txtObservacionesModelo.Value.ToUpper
                    .nroBaños = txtNroBaños.Value
                    .estado = selEstadoModelo.Value
                    .idUsuario = Me.Master.idUsuario
                End With
                resultado = RmodeloInmueble.Editar(Me.Master.descEmpresa, pModeloInmueble)
                If resultado Then
                    cargarModelos()
                    jsMensaje = "<script>javascript:alert(' Se modifico correctamente.');</script>)"
                    Controls.Add(New LiteralControl(jsMensaje))
                Else
                    jsMensaje = "<script>javascript:alert('No se pudo modificar.');</script>)"
                    Controls.Add(New LiteralControl(jsMensaje))
                End If
            End If
        End If
        lblTituloModeloUnidInmob.ToolTip = "Registrar"
    End Sub
    Protected Sub btnCancelarModelo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancelarModelo.Click
        lblTituloModeloUnidInmob.ToolTip = "Registrar"
        mpDetalleModelo.CancelControlID = "btnCancelarModelo"
    End Sub
    Protected Sub btnExcelModelo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExcelModelo.Click
        modelosUnid = Session("modelo")
        If Not modelosUnid Is Nothing Then
            Dim fileName As String = "Consulta{0}.xls"
            fileName = String.Format(fileName, DateTime.Now.ToShortDateString())
            Dim Response As HttpResponse = HttpContext.Current.Response
            Response.ContentType = "application/vnd.ms-excel"
            Response.Charset = "UTF-8"
            Response.ContentEncoding = System.Text.Encoding.Default
            Response.AddHeader("Content-Disposition", "attachment; filename=" + fileName)

            Response.Write("Proyecto")
            Response.Write(vbTab)
            Response.Write("Etapa")
            Response.Write(vbTab)
            Response.Write("id")
            Response.Write(vbTab)
            Response.Write("Modelo")
            Response.Write(vbTab)
            Response.Write("Código Tipo Inmueble")
            Response.Write(vbTab)
            Response.Write("Tipo Inmueble")
            Response.Write(vbTab)
            Response.Write("Area Terreno")
            Response.Write(vbTab)
            Response.Write("Area Techada")
            Response.Write(vbTab)
            Response.Write("Area Construida")
            Response.Write(vbTab)
            Response.Write("Area Vendible")
            Response.Write(vbTab)
            Response.Write("Ascesor Directo")
            Response.Write(vbTab)
            Response.Write("Nro de Habitaciones")
            Response.Write(vbTab)
            Response.Write("Area Patio/Jardin")
            Response.Write(vbTab)
            Response.Write("Nro de Baños")
            Response.Write(vbTab)
            Response.Write("Tiene Jardin/Patio")
            Response.Write(vbTab)
            Response.Write("Área Patio")
            Response.Write(vbTab)
            Response.Write("Observaciones")
            Response.Write(vbTab)
            Response.Write("id Estado")
            Response.Write(vbTab)
            Response.Write("Estado")
            Response.Write(vbTab)
            Response.Write(vbCrLf)

            Dim value As String
            For Each modelo In modelosUnid
                value = modelo.idProyecto
                Response.Write(value)
                Response.Write(vbTab)

                value = modelo.idEtapa
                Response.Write(value)
                Response.Write(vbTab)

                value = modelo.idModelo
                Response.Write(value)
                Response.Write(vbTab)

                value = modelo.nomModelo
                Response.Write(value)
                Response.Write(vbTab)

                value = modelo.EtpoInmueble.idTpoInmueble
                Response.Write(value)
                Response.Write(vbTab)

                value = modelo.EtpoInmueble.descTpoInmueble
                Response.Write(value)
                Response.Write(vbTab)

                value = modelo.areaTerrModelo
                Response.Write(value)
                Response.Write(vbTab)

                value = modelo.areaTechada
                Response.Write(value)
                Response.Write(vbTab)

                value = modelo.areaConstruida
                Response.Write(value)
                Response.Write(vbTab)

                value = modelo.areaVendible
                Response.Write(value)
                Response.Write(vbTab)

                value = modelo.ascensorDirecto
                Response.Write(value)
                Response.Write(vbTab)

                value = modelo.nroHabitaciones
                Response.Write(value)
                Response.Write(vbTab)

                value = modelo.nroBaños
                Response.Write(value)
                Response.Write(vbTab)

                value = modelo.patioJardin
                Response.Write(value)
                Response.Write(vbTab)

                value = modelo.areaPatio
                Response.Write(value)
                Response.Write(vbTab)

                value = modelo.observacion
                Response.Write(value)
                Response.Write(vbTab)

                value = modelo.estado
                Response.Write(value)
                Response.Write(vbTab)

                value = modelo.descEstado
                Response.Write(value)
                Response.Write(vbCrLf)
            Next
            Response.End()
        Else
            Dim jsMensaje As String = Nothing
            jsMensaje = "<script>javascript:alert(' La consulta no pudo ser procesada.  Por favor inténtelo de nuevo.');</script>)"
            Controls.Add(New LiteralControl(jsMensaje))
        End If
    End Sub
#End Region

#Region "           Unidades Inmobiliarias                  "
    Protected Sub btnAgregarUnidades_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAgregarUnidades.Click
        habilitarUnidades()
        mpDetalleUnidades.Show()
    End Sub
    Private Sub cargarUnidades(ByVal pUnidInmobiliaria As EunidInmobiliarias)
        unidadesInmb = RunidInmobiliarias.SeleccionarTodo(Me.Master.descEmpresa, False, pUnidInmobiliaria)
        Session("Unidades") = unidadesInmb
        gvwUnidades.DataSource = unidadesInmb
        gvwUnidades.DataBind()
    End Sub
    Private Sub cargarEstadoUnidades()
        Dim EestadoUnidades As New Ecommons
        selEstadoUnidades.DataSource = EestadoUnidades.estado
        selEstadoUnidades.DataTextField = "descripcion"
        selEstadoUnidades.DataValueField = "codigo"
        selEstadoUnidades.DataBind()
    End Sub
    Private Sub cargarTipoMoneda()
        selTpoMoneda.DataSource = Rmoneda.SeleccionarTodo(Me.Master.descEmpresa, True)
        selTpoMoneda.DataTextField = "descMoneda"
        selTpoMoneda.DataValueField = "idMoneda"
        selTpoMoneda.DataBind()
    End Sub
    Protected Sub lnkBtn_CommandUnidades(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.CommandEventArgs) _
    Handles lnkBtnNroInmueble.Command, lnkBtnNroPiso.Command, lnkBtnValorInmueble.Command, lnkBtnTpoMoneda.Command, _
            lnkBtnModelo.Command, lnkBtnTpoInmueble.Command, lnkBtnEstadoUnidades.Command
        unidadesInmb = Session("lista")
        If Not unidadesInmb Is Nothing Then
            Select Case e.CommandName
                Case "nroInmueble"
                    Dim List = From d In unidadesInmb _
                               Order By d.nroInmueble _
                               Select d
                    gvwUnidades.DataSource = List
                    gvwUnidades.DataBind()
                Case "nroPiso"
                    Dim List = From d In unidadesInmb _
                               Order By d.nroPiso _
                               Select d
                    gvwUnidades.DataSource = List
                    gvwUnidades.DataBind()
                Case "valorVenta"
                    Dim List = From d In unidadesInmb _
                               Order By d.valorVenta _
                               Select d
                    gvwUnidades.DataSource = List
                    gvwUnidades.DataBind()
                Case "desMoneda"
                    'Dim List = From d In unidadesInmb _
                    '           Order By d.Emoneda.desMoneda _
                    '           Select d
                    'gvwUnidades.DataSource = List
                    'gvwUnidades.DataBind()
                Case "idModelo"
                    'Dim List = From d In unidadesInmb _
                    '           Order By d.idModelo _
                    '           Select d
                    'gvwUnidades.DataSource = List
                    'gvwUnidades.DataBind()
                Case "idTpoInmueble"
                    'Dim List = From d In unidadesInmb _
                    '           Order By d.e _
                    '           Select d
                    'gvwUnidades.DataSource = List
                    'gvwUnidades.DataBind()
                Case "lnkBtnEstadoUnidades" : expression = e.CommandArgument
                    Dim List = From d In unidadesInmb _
                               Order By d.estado _
                               Select d
                    gvwUnidades.DataSource = List
                    gvwUnidades.DataBind()
            End Select
        End If
    End Sub
    Protected Sub gvwUnidades_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gvwUnidades.PageIndexChanging
        unidadesInmb = Session("Unidades")
        gvwUnidades.DataSource = unidadesInmb
        Me.gvwUnidades.PageIndex = e.NewPageIndex
        Me.gvwUnidades.DataBind()
    End Sub
    Protected Sub gvwUnidades_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) _
    Handles gvwUnidades.RowCommand
        Select Case e.CommandName
            Case "Edit"
            Case "Delete"
                Dim pUnidadesInmueble As New EunidInmobiliarias
                'Dim str As String = e.CommandArgument.ToString
                'Dim df As Int32 = Convert.ToInt32(DirectCast(gvwUnidades.SelectedRow.FindControl("lnkNroPiso"), LinkButton))
                'Dim lnk As LinkButton = DirectCast(gvwUnidades.Rows(1).FindControl("lnkNumeroInmueble"), LinkButton)
                Dim arr As String() = Split(e.CommandArgument, "-")
                Dim idUnidInmobiliaria As Int32 = CType(arr(2).ToString, Int32)
                With pUnidadesInmueble
                    .idProyecto = Me.Master.idProyecto
                    .idEtapa = Me.Master.idEtapa
                    .idEdiMzn = CType(txtIdEdificoUnidadesInmob.Text, Int32)
                    .idUndInmob = idUnidInmobiliaria
                    .idUsuario = Me.Master.idUsuario
                End With
                RunidInmobiliarias.Eliminar(Me.Master.descEmpresa, pUnidadesInmueble)
                cargarUnidades(pUnidadesInmueble)
        End Select
    End Sub
    Protected Sub gvwUnidades_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) _
    Handles gvwUnidades.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.Attributes.Add("OnMouseOver", "Resaltar_On(this);")
            e.Row.Attributes.Add("OnMouseOut", "Resaltar_Off(this);")
            e.Row.Attributes("OnClick") = Page.ClientScript.GetPostBackClientHyperlink(Me.gvwUnidades, "Select$" + e.Row.RowIndex.ToString)
            e.Row.Style.Add("cursor", "hand")
        End If
    End Sub
    Protected Sub gvwUnidades_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) _
    Handles gvwUnidades.RowDeleting
        'Dim lnk As LinkButton = CType(gvwUnidades.Rows(e.RowIndex).FindControl("lnkCtaCorriente"), LinkButton)
        'RctaCorriente.Eliminar(lnk.AccessKey, lnk.CommandArgument)
        'cargarUnidades(lnk.CommandArgument)
    End Sub
    Protected Sub gvwUnidades_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) _
    Handles gvwUnidades.RowEditing
        Dim lnk As LinkButton = CType(gvwUnidades.Rows(e.NewEditIndex).FindControl("lnkNumeroInmueble"), LinkButton)
        Dim arr As String() = Split(lnk.CommandArgument, "-")
        Dim idUnidInmobiliaria As Int32 = CType(arr(2).ToString, Int32)
        unidadesInmb = Session("Unidades")
        If Not unidadesInmb Is Nothing Then
            Dim LUnidInmobiliarias = From v In unidadesInmb _
                                Where v.idUndInmob.ToString = idUnidInmobiliaria _
                                Select v
            lblTituloModeloUnidInmob.Text = "Unidades Inmobiliarias [Modificar]"
            lblTituloModeloUnidInmob.ToolTip = "Modificar"
            txtIdEdificoUnidadesInmob.Text = LUnidInmobiliarias.ElementAt(0).idEdiMzn
            upIdEdificoUnidadesInmob.Update()
            txtIdUnidadesInmob.Text = LUnidInmobiliarias.ElementAt(0).idUndInmob
            selModelo.Value = LUnidInmobiliarias.ElementAt(0).EmodeloInmueble.idModelo
            upSelModelo.Update()
            txtNroInmueble.Value = LUnidInmobiliarias.ElementAt(0).nroInmueble
            txtNroPisosUndInmob.Value = LUnidInmobiliarias.ElementAt(0).nroPiso
            txtAreaTerrenoInmueble.Text = LUnidInmobiliarias.ElementAt(0).areaTerrModelo
            txtAreaTechadaInmueble.Text = LUnidInmobiliarias.ElementAt(0).areaTechada
            txtAreaConstruidaInmueble.Text = LUnidInmobiliarias.ElementAt(0).areaConstruida
            'txtAreaVendibleInmueble.Text = LUnidInmobiliarias.ElementAt(0).areaVendible
            txtAreaVendibleInmueble.Text = LUnidInmobiliarias.ElementAt(0).areaTerraza
            'txtValorVenta.Value = LUnidInmobiliarias.ElementAt(0).valorVenta
            txtValorVenta.Value = Format(LUnidInmobiliarias.ElementAt(0).valorVenta, "###,###,###.#0")
            txtPorcDescuento.Value = Format(LUnidInmobiliarias.ElementAt(0).descuento, "##0.#0")
            'txtPorcDescuento.Value = Format(LUnidInmobiliarias.ElementAt(0).descuento * 100, "##0.#0")
            txtMontoDescuento.Value = LUnidInmobiliarias.ElementAt(0).dsctoMonto
            txtPrecioBase.Value = LUnidInmobiliarias.ElementAt(0).precioBase
            selTpoMoneda.Value = LUnidInmobiliarias.ElementAt(0).Emoneda.idMoneda
            txtPorcComision.Value = LUnidInmobiliarias.ElementAt(0).comision
            txtPorcAcciones.Value = LUnidInmobiliarias.ElementAt(0).porcAcciones
            txtPrecio.Value = LUnidInmobiliarias.ElementAt(0).precioMCuadrs
            selEstadoUnidades.Value = LUnidInmobiliarias.ElementAt(0).estado
            txtObservacionesUnidades.Value = LUnidInmobiliarias.ElementAt(0).observaciones
            txtAreaOcupada.Text = LUnidInmobiliarias.ElementAt(0).areaTechada + LUnidInmobiliarias.ElementAt(0).areaVendible
            If LUnidInmobiliarias.ElementAt(0).bloqueado.ToString = 1 Then
                rbdBloqueadoSI.Checked = True
                rbdBloqueadoNO.Checked = False
            Else
                rbdBloqueadoSI.Checked = False
                rbdBloqueadoNO.Checked = True
            End If
            If LUnidInmobiliarias.ElementAt(0).EestadoInmueble.idEstadoInmueble > 1 Then
                deshabilitarUnidades()
            Else
                habilitarUnidades()
            End If
            mpDetalleUnidades.Show()
        End If
    End Sub
    Protected Sub btnGuardarUnidadesInmob_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGuardarUnidades.Click
        If selModelo.Value.Trim.Length > 0 AndAlso txtNroInmueble.Value.Trim.Length > 0 AndAlso txtNroPisosUndInmob.Value Then
            Dim jsMensaje As String = Nothing
            Dim pUnidadesInmob As EunidInmobiliarias = Nothing
            Dim resultado As Boolean = False
            If lblTituloModeloUnidInmob.ToolTip = "Registrar" Then
                pUnidadesInmob = New EunidInmobiliarias
                With pUnidadesInmob
                    .idProyecto = Me.Master.idProyecto
                    .idEtapa = Me.Master.idEtapa
                    .idEdiMzn = CType(txtIdEdificoUnidadesInmob.Text, Int32)
                    .EmodeloInmueble = New EmodeloInmueble
                    .EmodeloInmueble.idModelo = selModelo.Value
                    .nroInmueble = txtNroInmueble.Value.ToUpper
                    .nroPiso = txtNroPisosUndInmob.Value
                    .areaTerrModelo = txtAreaTerrenoInmueble.Text
                    .areaTechada = txtAreaTechadaInmueble.Text
                    .areaConstruida = txtAreaConstruidaInmueble.Text
                    .areaTerraza = txtAreaVendibleInmueble.Text
                    .valorVenta = txtValorVenta.Value
                    .descuento = txtPorcDescuento.Value
                    .dsctoMonto = txtMontoDescuento.Value
                    .precioBase = txtPrecioBase.Value
                    .Emoneda = New Emoneda
                    .Emoneda.idMoneda = selTpoMoneda.Value
                    .comision = txtPorcComision.Value
                    .porcAcciones = txtPorcAcciones.Value
                    .precioMCuadrs = txtPrecio.Value
                    .observaciones = txtObservacionesUnidades.Value

                    If rbdBloqueadoSI.Checked = True Then
                        .bloqueado = 1
                    Else
                        .bloqueado = 0
                    End If
                    .EestadoInmueble = New EestadoInmueble
                    .EestadoInmueble.idEstadoInmueble = selEstadoUnidades.Value ' selEstadoUnidades.Value '(1 = Disponible, 2 = Separacion, 3 = Pendiente Cta, 4 = Pendiente Financiamiento, 5 = Cancelada, 6 = Entregada)
                    .idUsuario = Me.Master.idUsuario
                End With
                resultado = RunidInmobiliarias.Añadir(Me.Master.descEmpresa, pUnidadesInmob)
                If resultado Then
                    cargarUnidades(pUnidadesInmob)
                    jsMensaje = "<script>javascript:alert(' Se registro correctamente.');</script>)"
                    Controls.Add(New LiteralControl(jsMensaje))
                Else
                    jsMensaje = "<script>javascript:alert('No se pudo registrar.');</script>)"
                    Controls.Add(New LiteralControl(jsMensaje))
                End If
            ElseIf lblTituloModeloUnidInmob.ToolTip = "Modificar" Then
                pUnidadesInmob = New EunidInmobiliarias
                With pUnidadesInmob
                    .idProyecto = Me.Master.idProyecto
                    .idEtapa = Me.Master.idEtapa
                    .idEdiMzn = CType(txtIdEdificoUnidadesInmob.Text, Int32)
                    .idUndInmob = CType(txtIdUnidadesInmob.Text, Int32)
                    .EmodeloInmueble = New EmodeloInmueble
                    .EmodeloInmueble.idModelo = selModelo.Value
                    .idUndInmob = CType(txtIdUnidadesInmob.Text, Int32)
                    .nroInmueble = txtNroInmueble.Value.ToUpper
                    .nroPiso = txtNroPisosUndInmob.Value
                    .areaTerrModelo = txtAreaTerrenoInmueble.Text
                    .areaTechada = txtAreaTechadaInmueble.Text
                    .areaConstruida = txtAreaConstruidaInmueble.Text
                    .areaTerraza = txtAreaVendibleInmueble.Text
                    .valorVenta = txtValorVenta.Value
                    .descuento = txtPorcDescuento.Value
                    .dsctoMonto = txtMontoDescuento.Value
                    .precioBase = txtPrecioBase.Value
                    .Emoneda = New Emoneda
                    .Emoneda.idMoneda = selTpoMoneda.Value
                    .comision = txtPorcComision.Value
                    .porcAcciones = txtPorcAcciones.Value
                    .precioMCuadrs = txtPrecio.Value
                    .observaciones = txtObservacionesUnidades.Value

                    If rbdBloqueadoSI.Checked = True Then
                        .bloqueado = 1
                    Else
                        .bloqueado = 0
                    End If
                    .EestadoInmueble = New EestadoInmueble
                    .EestadoInmueble.idEstadoInmueble = selEstadoUnidades.Value
                    .estado = selEstadoUnidades.SelectedIndex
                    .idUsuario = Me.Master.idUsuario
                End With
                resultado = RunidInmobiliarias.Editar(Me.Master.descEmpresa, pUnidadesInmob)
                If resultado Then
                    cargarUnidades(pUnidadesInmob)
                    jsMensaje = "<script>javascript:alert(' Se modifico correctamente.');</script>)"
                    Controls.Add(New LiteralControl(jsMensaje))
                Else
                    jsMensaje = "<script>javascript:alert('No se pudo modificar.');</script>)"
                    Controls.Add(New LiteralControl(jsMensaje))
                End If
            End If
        End If
        lblTituloModeloUnidInmob.ToolTip = "Registrar"
        limpiarUnidades()
        mpDetalleUnidades.Hide()
    End Sub
    Protected Sub btnCancelarUnidades_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancelarUnidades.Click
        lblTituloUnidades.ToolTip = "Registrar"
        mpDetalleUnidades.CancelControlID = "btnCancelarUnidades"
    End Sub
    Protected Sub btnExcelUnidadesInmobiliarias_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExcelUnidadesInmobiliarias.Click
        unidadesInmb = Session("Unidades")
        If Not unidadesInmb Is Nothing Then
            Dim fileName As String = "Consulta{0}.xls"
            fileName = String.Format(fileName, DateTime.Now.ToShortDateString())
            Dim Response As HttpResponse = HttpContext.Current.Response
            Response.ContentType = "application/vnd.ms-excel"
            Response.Charset = "UTF-8"
            Response.ContentEncoding = System.Text.Encoding.Default
            Response.AddHeader("Content-Disposition", "attachment; filename=" + fileName)

            Response.Write("Proyecto")
            Response.Write(vbTab)
            Response.Write("Etapa")
            Response.Write(vbTab)
            Response.Write("id Edificio")
            Response.Write(vbTab)
            'Response.Write("Edificio")
            'Response.Write(vbTab)
            Response.Write("id UndInmob")
            Response.Write(vbTab)
            Response.Write("UndInmob")
            Response.Write(vbTab)
            Response.Write("id Modelo")
            Response.Write(vbTab)
            Response.Write("Modelo")
            Response.Write(vbTab)
            Response.Write("Nro Inmueble")
            Response.Write(vbTab)
            Response.Write("Nro Piso")
            Response.Write(vbTab)
            Response.Write("Área Terreno")
            Response.Write(vbTab)
            Response.Write("Área Techada")
            Response.Write(vbTab)
            Response.Write("Área Construida")
            Response.Write(vbTab)
            Response.Write("Área Vendible")
            Response.Write(vbTab)
            Response.Write("Valor de Venta")
            Response.Write(vbTab)
            Response.Write("Descuento")
            Response.Write(vbTab)
            Response.Write("Código Tipo Moneda")
            Response.Write(vbTab)
            Response.Write("Tipo Moneda")
            Response.Write(vbTab)
            Response.Write("%Comis ValorVenta")
            Response.Write(vbTab)
            Response.Write("%Acciones")
            Response.Write(vbTab)
            Response.Write("PrecioM2")
            Response.Write(vbTab)
            Response.Write("Observaciones")
            Response.Write(vbTab)
            Response.Write("Bloqueado")
            Response.Write(vbTab)
            Response.Write("Código Estado inmueble")
            Response.Write(vbTab)
            Response.Write("Estado inmueble")
            Response.Write(vbTab)
            Response.Write("id Estado")
            Response.Write(vbTab)
            Response.Write("Estado")
            Response.Write(vbTab)
            Response.Write(vbCrLf)

            Dim value As String
            For Each unidad In unidadesInmb
                value = unidad.idProyecto
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.idEtapa
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.idEdiMzn
                Response.Write(value)
                Response.Write(vbTab)

                'value = unidad.EediMazn.nomEdiMzn
                'Response.Write(value)
                'Response.Write(vbTab)

                value = unidad.idUndInmob
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.EmodeloInmueble.nomModelo
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.EmodeloInmueble.idModelo
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.EmodeloInmueble.nomModelo
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.nroInmueble
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.nroPiso
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.areaTerrModelo
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.areaTechada
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.areaConstruida
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.areaVendible
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.valorVenta
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.descuento
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.Emoneda.idMoneda
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.Emoneda.descMoneda
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.comision
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.porcAcciones
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.precioMCuadrs
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.observaciones
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.bloqueado
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.EestadoInmueble.idEstadoInmueble
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.EestadoInmueble.descEstadoInmueble
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.estado
                Response.Write(value)
                Response.Write(vbTab)

                value = unidad.descEstado
                Response.Write(value)
                Response.Write(vbCrLf)
            Next
            Response.End()
        Else
            Dim jsMensaje As String = Nothing
            jsMensaje = "<script>javascript:alert(' La consulta no pudo ser procesada.  Por favor inténtelo de nuevo.');</script>)"
            Controls.Add(New LiteralControl(jsMensaje))
        End If
    End Sub
    Private Sub limpiarUnidades()
        'txtIdEdificoUnidadesInmob.Text = ""
        'upIdEdificoUnidadesInmob.Update()
        txtIdUnidadesInmob.Text = ""
        selModelo.SelectedIndex = 0
        txtNroInmueble.Value = ""
        txtNroPisosUndInmob.Value = ""
        txtAreaTerrenoInmueble.Text = ""
        txtAreaTechadaInmueble.Text = ""
        txtAreaConstruidaInmueble.Text = ""
        txtAreaVendibleInmueble.Text = ""
        txtValorVenta.Value = ""
        txtPorcDescuento.Value = ""
        txtMontoDescuento.Value = ""
        txtPrecioBase.Value = ""
        selTpoMoneda.SelectedIndex = 0
        txtPorcComision.Value = ""
        txtPorcAcciones.Disabled = False
        txtPrecio.Value = ""
        rbdBloqueadoSI.Checked = False
        rbdBloqueadoNO.Checked = True
        selEstadoUnidades.SelectedIndex = 1
        txtObservacionesUnidades.Disabled = False
        upGuardarUnidades.Update()
    End Sub
    Private Sub habilitarUnidades()
        txtIdEdificoUnidadesInmob.Enabled = True
        txtIdUnidadesInmob.Enabled = True
        selModelo.Disabled = False
        txtNroInmueble.Disabled = False
        txtNroPisosUndInmob.Disabled = False
        txtAreaTerrenoInmueble.Enabled = True
        txtAreaTechadaInmueble.Enabled = True
        txtAreaConstruidaInmueble.Enabled = True
        txtAreaVendibleInmueble.Enabled = True
        txtValorVenta.Disabled = False
        txtPorcDescuento.Disabled = False
        txtMontoDescuento.Disabled = False
        txtPrecioBase.Disabled = False
        selTpoMoneda.Disabled = False
        txtPorcComision.Disabled = False
        txtPorcAcciones.Disabled = False
        txtPrecio.Disabled = False
        rbdBloqueadoSI.Enabled = True
        rbdBloqueadoNO.Enabled = True
        selEstadoUnidades.Disabled = False
        txtObservacionesUnidades.Disabled = False
        btnGuardarUnidades.Enabled = True
        upGuardarUnidades.Update()
    End Sub
    Private Sub deshabilitarUnidades()
        txtIdEdificoUnidadesInmob.Enabled = False
        txtIdUnidadesInmob.Enabled = False
        selModelo.Disabled = True
        txtNroInmueble.Disabled = True
        txtNroPisosUndInmob.Disabled = True
        txtAreaTerrenoInmueble.Enabled = False
        txtAreaTechadaInmueble.Enabled = False
        txtAreaConstruidaInmueble.Enabled = False
        txtAreaVendibleInmueble.Enabled = False
        txtValorVenta.Disabled = True
        txtPorcDescuento.Disabled = True
        txtMontoDescuento.Disabled = True
        txtPrecioBase.Disabled = True
        selTpoMoneda.Disabled = True
        txtPorcComision.Disabled = True
        txtPorcAcciones.Disabled = True
        txtPrecio.Disabled = True
        rbdBloqueadoSI.Enabled = False
        rbdBloqueadoNO.Enabled = False
        selEstadoUnidades.Disabled = True
        txtObservacionesUnidades.Disabled = True
        btnGuardarUnidades.Enabled = False
        upGuardarUnidades.Update()
    End Sub
#End Region

End Class